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ESIX - EXTENDED ESI 


DECUS PrQgram Library Write-up 


DECUS inO. 8-504B 


ESIX is an enhanced version of ESI (Engineering and Scientific 
Interpreter) for the PDP-8 family of computers. ESIX runs on 
any PDP-8 family machine with 8K or more of core and a 
teletype. Compared with basic ESI, it offers four times as 
much program and array storage, many extended functions, 
paginated output, generalized exponentiation, and a number of 
new statement types. 

This manual details the extended features of ESIX and the 
revised operating procedures used to lead and start ESIX. It 
is not, however, a guide to the ESI language and environment 
and must be read in coniunction with the explanatory literature 
on basic ESI. In particular, it is assumed that the reader 
is familiar with the Introduction to ESI and related documents.* 

1. New Features 

1.1 Extended array and program storage. ESIX offers over 
3800 words of free storage, as compared to about 800 
words for basic ESI. Therefore, ESIX can store over 
7500 characters of program, or over 600 array elements, 
or an intermediate combination of the two. For example, 
ESIX can store both the program and arrays required to 
solve a 7 x 7 zero sum game (see example program at end). 

At any time, the user can find out how much free storage 
remains by typing the command 
<~ TYPE SIZE . 

ESIX responds by typing out the number of free words 
remaining,_initially 3872. TYPE SIZE can be given as 
either a direct or an indirect statement. 

1.2 Extended functions. ESIX contains the following additional 
built-in numeric functions: 

SQRT(N) - square root 

SIN(N) - sine, argument in radians 

COS(N) - cosine, argument in radians 

ARCTAN(N) - arctangent, answer in radians 

EXP(N) - exponentiation, answer is e N 

LOG(N) - common logarithm 

LN(N) - natural logarithm 

DP(N) - digit part. The digit part of 123.456 is 
1.23456, of .00004231 is 4.231 
XP(N) - exponent part. The exponent part of 123.456 
is 2, of .00004231 is -5. For any number, 

N=DP (N) * 10 t XP (N) 
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. ESIX also includes all the functions built into basic ESI: 


ABS(N) 

- absolute value 


IP (N) 

- integer part. The integer part of 
123, of .00004231 is 0. 

123.456 is 

FP (N) 

- fraction part. The fraction part 
is .456, of .00004231 is .00004231 

of 123.456 

SGN (N) 

- sign part. The sign part of +3 is 
-4 is -1. 

1, of 


1.3 Generalized Exponentiation. In basic ESI, exponents had 
to be integers in the range 0-9. In ESIX, exponents can 
be arbitrary arithmetic expressions. For example: 

< —TYPE "THE CUBE ROOT OF "I" IS" I f (1/3). 

Integer exponents in the range 1-9 are handled by repetitive 
multiplication. All other exponents are handled by the 
expansion: 

A B = EXP(B*LN(A)) 

1.4 Compound statements. More than one statement can be placed 
on the same line, each statement separated by a semicolon: 

<" TYPE A; SET A = SQRT (A) ; TYPE A . 

would result in: (if A = 4) 

A = 4 
A = 2 

Statements on the same line joined by a semi-colon are 
called compound statements. A compound statement is for 
all intents and purposes a single statement. Compound 
statements are treated by FOR clauses, IF clauses, and 
DO statements just like simple statements. For example: 

{-—- FOR I = 1(1)10, SET A [ I ] =0; SET B[I] = I . 

sets A^,...,A 10 to zero and Bi,...,B 10 to £l,...,10> 

Or again 

<~ FOR I = 1(1)10, DEMAND A[I]; DEMAND B[I], 

asks first for A-,, then B. , then A 2 , then B 2 , etc. 

If step 4.2 is 

4.2 SET F = 1; SET G = 1E10. 


then 

C-DO STEP 4.2, 
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♦ 



defines both F and G. The programming, example at the 
end demonstrates the uses of compound statements. 

1.4 Comments 


Lines beginning with * are treated as comments 
and ignored: 


<~ *THIS IS A COMMENT . 

Comments may be used as indirect statements: 

1.0001 *THIS PROGRAM SOLVES ALL PROBLEMS 
1.0002 *TO OPERATE, SIMPLY PLACE 25 CENTS NEAR 


Pagination . ESIX automatically paginates its output 
into 8 1/2 x 11 pages, provides tear marks, types 
out a heading and page numbers. To use the pagination 
mechanism the user should type 

LOG ON . 

ESIX will respond by asking for the title of the 
upcoming session 

TITLE: <r~ 


After the user provides a title, ESIX will space to the 
top of a new page and await further input. 


At the end of his session, 
by typing 


the user should terminate 


4—LOGOFF . 


ESIX will space to the end of page and type a final 
set of tear marks to delimit the user's output. 

At any time, the user can force ejection to the 
beginning of a new page by typing 

PAGE . 

PAGE can be either a direct or indirect statement. Used 
in the latter form, it is extremely useful in 
formulating reports and in teletype 1/0. 
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2. Operating Instructions 

2.1 Use the RIM loader to load the binary loader into 
field 1. To do this: 

-Place the tape of the binary loader in the paper 
tape reader. 

-Set the instruction field switches to 0, the 
data field switches to 1_. 

-Start the RIM loader at 7756. 

2.2 When the binary loader is successfully loaded into 
field 1, start it at 17777 and use it to load ESIX. 
To do this: 

-Place the binary tape of ESIX in the paper-tape 
reader. 

-Set the instruction and data field switches to 1_ 
-Set up a starting address of 7777. 

-Set up the console switches to select the low- 
speed or high-speed paper-tape reader. 

-Start the BIN loader. 

2.3 When the BIN loader halts, the AC should be 0000. 

If it is not, a check sum error has occurred; step 
2.2 should be repeated. ESIX starts at location 
5400, the same location as PDP-8 DDT. 
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PERMISSIBLE FORMS IN ESI-X, COPYRIGHT 1967, 


APPLIED DATA RESEARCH, 


INC. 


DIRECT OR INDIRECT: 


DIRECT ONLY: 


SET C = A*B+C*D• 

SET CCI.J3 = BCI-1#Jt23-CC1+1.J/23. 
SET Y = IPCX/I) . 

FOR I = 1 (1)N. SET AC I 3 = BCI3*CCI3. 


DELETE STEP 1.1. 
DELETE PART 2. 
DELETE ALL PARTS. 
DELETE ALL. 


DO PART 3. 

FOR R = 0(0.I>1.5# DO PART 2. 

DO STEP 3.7. 

FOR J = NC-D1* DO STEP 7.352. 

TYPE 2+3+5. 

TYPE X. 

TYPE X. IP(X)> SGNCX). ARCTANCX). 
FOR I = 1(1>N, TYPE AC I 3. 

TYPE "THIS IS A STRING". 

TYPE "THE SQUARE OF" X "IS" X»2. 
TYPE STEP 2.3. 

TYPE PART 6. 

TYPE ALL PARTS. 

TYPE ALL VALUES. 

TYPE ALL A. 

TYPE ALL. 


X = 3*ABS(A-B) 

Y = Z+R 
Z= 1 4 

AC I 3=1.3E-6 
AC 433 = 1.414E+32 
AC 23 = 3175*1 

LOG ON. 

LOG OFF. 


INDIRECT ONLY: 

1.1 TO STEP 1.7. 
1.7 TO PART 4. 


DELETE a. 

DELETE AC 1,33. BCI,J3, C, D. 
DELETE ALL VALUES. 

FOR 1 = 1C13N, DELETE AC I 3. 

LINE. 

PAGE. 

♦THIS IS A COMMENT 


2.3 END. 


4.1 STOP. 

6.1 DEMAND X. 

7.3 5 DEMAND AC I>J3. 

8.1 DEMAND AC 4 53 . 


CONDITIONAL CLAUSES: 
IF A = B, 

IF ABSCN-O/N) < 1E-6. 
IF LOGCX) GE LNCY), 

IF EXP(X) NE 1. 

IF (A-B)/C LE D-X»5. 


FUNCTIONS: 


NUMBERS: 

2 

3.141593 
.003 
0.01 
-3.7E5 
4.36E-7 
-3.273E+ 1 7 

INTERRUPTED 


OPERATIONS: 

♦-*/♦() 

RELATIONS: 

< > = GE LE NE 
OR STOPPED: 


IP(X) 
FP(X) 
SGN(X) 
ABS(X) 
DP( X) 


INTEGER PART 
FRACTION PART 
SIGN PART 
ABSOLUTE VALUE 
DIGIT PART 


ANY "TYPE" STATEMENT. 
GO. 

CANCEL. 
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XP(X) 

S6RTCX) 

SIN(X) 

COS(X) 

LOG(X) 

LN(X) 

EXP(X) 
ARCTAN(X) 


EXPONENT PART 
SQUARE ROOT 
SINE 
COSINE 

COMMON LOGARITHM 
NATURAL LOGARITHM 
EXPONENTIAL 
ARCTANGENT 


- IS TYPED AND THE BELL RINGS WHENEVER A USER TYPE-IN IS REQUESTED. 

C AND ] ARE USED TO DENOTE SUBSCRIPTS. 

? TYPED AT THE END OF ANY LINE CAUSES IT TO BE DISREGARDED. 

"RU80UT" DELETES THE PRECEDING CHARACTER AND TYPES - TO SO INDICATE. 
STEP NUMBERS ARE IN THE RANGE 1 TO 9.999999. 

VARIABLES ARE THE SINGLE LETTERS A THROUGH Z. 

"ALT MODE" INTERRUPTS EXECUTION OF A PROGRAM AT THE COMPLETION OF THE 
CURRENT STEP; ON A "DEMAND’S "ALT MODE" CANCELS EXECUTION. 

THE TELETYPE LISTING IS AUTOMATICALLY PAGINATED. "LOG ON" CAUSES 
A REQUEST FOR THE USER TO TYPE IN THE TITLE WHICH IS TO APPEAR AT 
THE TOP OF EVERY'PAGE. 

Most ESI statements may be compounded using semi-colons. Such 
compound statements are executed as single units: 

SET C = A+B; SET E = 2.71828. 

1.2 DEMAND X; DEMAND Y; TO PART 3. 

TYPE STEP 2.3; TYPE PART 4; PAGE; *THIS DUMPS USER MEMORY. 
4.12 TYPE ALL A; STOP. 

6.5 DO PART 2; DO STEP 3.1; DO STEP 6.6. 

The range of an 'IF' or 'FOR' clause in a compound statement extends 
to the end of the entire statement, that is, to the terminating period 
for example, 

IF A = 4, TYPE "YES"; TYPE " "A. 

results in (if A = 4) 

YES 

4 

and nothing if A ^ 4; and 

1.3 FOR I = 1(1)2, TYPE I; TYPE SQRT(I). 
results in 

1 = 1 
SQRT(I) = 1 
1 = 2 

SQRT(I) = 1.414214 

Certain compounds which do not make logical sense are forbidden: 

1.4 TO STEP 9.77; any statement. 

4.22 END; any statement. 

LOG ON; any statement. 

LOG OFF; any statement, 
any statement; LOG ON. 
any statement; LOG OFF. 
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♦PAGE 8 


GAME THEORY 


►TYPE ALL PARTS* 

1.001 *. 

1.00P ♦SINGLE PHASE TWO PERSON ZERO SUM GAME SOLVER. 

1*003 ♦RMS -- ADR* 9/7/67* rT ,, 

1*1 DEMAND MS DEMAND NS FOR I = 1 C 1) M > FOR J=lC1)N> DEMAND PC I > J 3 

1.3 FOR I = 1 C DM* SET 0CI*N+13=B SET BC I 3 = 15 SET CCI3 = 0* 

1*35 FOR J=l( 1)N> SET GCM+1*J3=-D SET DCJ3=J; SET AC J 3-0* 

1*36 SET S= 1 E 1 0* rT 

1.37 FOP I = 1C 1)M* FOR J=K1)N* IF FCI*J3<S* SET S=PCI*J3. 

1.38 IF S>0* SET S=0. 

],/• FOR I=1(DM* FOR J=KDN* SET GC I * J 3 = PC I * J 3-S. 

1.45 SET 0CM+1*N+1 3 = 0* 

5 SET Z= 1 * SET Y=-D SET K=li SET L= 1 * 

53 FOP J= 1C 1)N* IF GCM+DJ3 LE 0* DO PART 4* 

5* SET Y= GC K* L 3 ; SET RCK,L3=Z. 

6 FOR I = 1 C 1) M+ 1 * DO FART 6* 

61 FOP I = 1 C 1) M+ 1 * FOR J= 1 C 1) N+ 1 * SET GC I * J 3= RC I * J 3 . 

7 SET T=ACL3* SET ACL3 = BCK3; SET BCK3 = T* 

73 SET T= CC K 3 ; SET CCK3=DCL3; SET DCL3=T* 


1 

1 

1 

1 

1 

1 

1 

1 

1 

) 

1 

1 

1 

1 • 
1 . 
1 * 


0* TO STEP 1*5* 
0* TO STEP 1*5* 


8 SET Z=Y• 

8 5 FO R I = 1 C D M* IF GC I * N+ 1 3 

8 6 FOR J=1CDN* IE GCM+1*J3 

88 FOR I = 1 C 1)M» SET RCI3 = 0* 

89 FOR J = 1 C D N * SET DCJ3 = 0* 

9 FOR I = 1 C DM* FOR K= 1 C D N * IF I = A CK 3 * SET PC I 3 -GC M+ 1 * K 3• 

.91 FOP J= 1 C D N* FO R K=1CDM* IF J = CCK3* SET DC J 3 = GC K* N+1 3 * 

9? SET Z=Z/GCM+1*N+1 3+S* 

93 DO PART 9J TO STEP 1*1* 


4.1 SET F= 1 * SET 6= 1 E1 0* 

4. 3 FOR I = 1C DM* IF GCI*J3 > 0* DO PART 5* 

4.4 IE G LE Y* END* 

4.5 SET y=g; SET K=FJ SET L = J* 

5*1 SET V=C - GC I * N+ 1 3*GCM+ 1* J3 ) /GC I * J 3 * I F V LE 6* SET G=Vi SET F=I* 
6 * 1 IF' I NF K* TO STEP 6 * 4 . 

6* P FOP J= 1 C 1) N+ 1 * IF' J NE L* SET RC I * J 3= GC I * J 3 . 

6**4 FOR «J=1C DN+DIF J NE L* SET RC I * J 3 = C GC I * J 3*Y-GC I * L 3 * GCK* J 3 ) /Z ■ 
6*5 SET RCI*L3=-0CI*L3. 


9* 1 FOP 1 = 1 C D 5*LINE* 

9*15 TYPE ’’VALUE OF GAME IS "Z* 

9 , p LINFJ TYPE ’’RED ODDS:”; FUR J = 1C 1) N * TYPE 

9.5 LINE; TYPE ’'BLUE ODDS!”; FOR I = 1 C DN* TYPE 

9.8 LINE; TYPE ’’GAME MATRIX:”. 

9.85 FOR 1= 1C DM* FOR J=1CDN* TYPE " "FCI*J3. 

9.9 PAGE. 

-P-LOG OFF. 


•DC J3 . 
”BC I 3 . 
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